Histograms
library(plotly)
#hsc1_T1
hsc1_T1_count <- dplyr::count(data, hsc1_T1)
knitr::kable(hsc1_T1_count)
| 1 |
2 |
| 2 |
8 |
| 3 |
10 |
| 4 |
16 |
| 5 |
48 |
| 6 |
19 |
| 7 |
11 |
e <- ggplot(data = data, mapping = aes(x = hsc1_T1, fill = factor(hsc1_T1))) + geom_histogram(binwidth = 1)
ggplotly(e)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T1
hsc2_T1_count <- dplyr::count(data, hsc2_T1)
knitr::kable(hsc2_T1_count)
| 1 |
3 |
| 2 |
12 |
| 3 |
10 |
| 4 |
20 |
| 5 |
29 |
| 6 |
24 |
| 7 |
16 |
f <- ggplot(data = data, mapping = aes(x = hsc2_T1, fill = factor(hsc2_T1))) + geom_histogram(binwidth = 1)
ggplotly(f)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T1
hsc3_T1_count <- dplyr::count(data, hsc3_T1)
knitr::kable(hsc3_T1_count)
| 2 |
4 |
| 3 |
4 |
| 4 |
12 |
| 5 |
23 |
| 6 |
35 |
| 7 |
35 |
| NA |
1 |
g <- ggplot(data = data, mapping = aes(x = hsc3_T1, fill = factor(hsc3_T1))) + geom_histogram(binwidth = 1)
ggplotly(g)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T1
hsc4_T1_count <- dplyr::count(data, hsc4_T1)
knitr::kable(hsc4_T1_count)
| 1 |
8 |
| 2 |
13 |
| 3 |
13 |
| 4 |
19 |
| 5 |
28 |
| 6 |
17 |
| 7 |
16 |
h <- ggplot(data = data, mapping = aes(x = hsc4_T1, fill = factor(hsc4_T1))) + geom_histogram(binwidth = 1)
ggplotly(h)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T1
hsc5_T1_count <- dplyr::count(data, hsc5_T1)
knitr::kable(hsc5_T1_count)
i <- ggplot(data = data, mapping = aes(x = hsc5_T1, fill = factor(hsc5_T1))) + geom_histogram(binwidth = 1)
ggplotly(i)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T1
hsc6_T1_count <- dplyr::count(data, hsc6_T1)
knitr::kable(hsc6_T1_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
12 |
| 4 |
21 |
| 5 |
35 |
| 6 |
25 |
| 7 |
14 |
j <- ggplot(data = data, mapping = aes(x = hsc6_T1, fill = factor(hsc6_T1))) + geom_histogram(binwidth = 1)
ggplotly(j)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T1
hsc7_T1_count <- dplyr::count(data, hsc7_T1)
knitr::kable(hsc7_T1_count)
| 1 |
4 |
| 2 |
11 |
| 3 |
13 |
| 4 |
21 |
| 5 |
17 |
| 6 |
26 |
| 7 |
22 |
k <- ggplot(data = data, mapping = aes(x = hsc7_T1, fill = factor(hsc7_T1))) + geom_histogram(binwidth = 1)
ggplotly(k)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T1
hsc8_T1_count <- dplyr::count(data, hsc8_T1)
knitr::kable(hsc8_T1_count)
| 1 |
3 |
| 2 |
16 |
| 3 |
12 |
| 4 |
42 |
| 5 |
24 |
| 6 |
13 |
| 7 |
4 |
l <- ggplot(data = data, mapping = aes(x = hsc8_T1, fill = factor(hsc8_T1))) + geom_histogram(binwidth = 1)
ggplotly(l)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T1
hsc9_T1_count <- dplyr::count(data, hsc9_T1)
knitr::kable(hsc9_T1_count)
| 1 |
9 |
| 2 |
21 |
| 3 |
18 |
| 4 |
38 |
| 5 |
17 |
| 6 |
10 |
| 7 |
1 |
m <- ggplot(data = data, mapping = aes(x = hsc9_T1, fill = factor(hsc9_T1))) + geom_histogram(binwidth = 1)
ggplotly(m)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T1
hsc10_T1_count <- dplyr::count(data, hsc10_T1)
knitr::kable(hsc10_T1_count)
n <- ggplot(data = data, mapping = aes(x = hsc10_T1, fill = factor(hsc10_T1))) + geom_histogram(binwidth = 1)
ggplotly(n)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T1
hsc11_T1_count <- dplyr::count(data, hsc11_T1)
knitr::kable(hsc11_T1_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
12 |
| 4 |
25 |
| 5 |
26 |
| 6 |
23 |
| 7 |
21 |
o <- ggplot(data = data, mapping = aes(x = hsc11_T1, fill = factor(hsc11_T1))) + geom_histogram(binwidth = 1)
ggplotly(o)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T1
hsc12_T1_count <- dplyr::count(data, hsc12_T1)
knitr::kable(hsc12_T1_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
5 |
| 4 |
2 |
| 5 |
28 |
| 6 |
37 |
| 7 |
35 |
p <- ggplot(data = data, mapping = aes(x = hsc12_T1, fill = factor(hsc12_T1))) + geom_histogram(binwidth = 1)
ggplotly(p)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T2
hsc1_T2_count <- dplyr::count(data, hsc1_T2)
knitr::kable(hsc1_T2_count)
| 1 |
2 |
| 2 |
4 |
| 3 |
10 |
| 4 |
20 |
| 5 |
37 |
| 6 |
22 |
| 7 |
5 |
| NA |
14 |
q <- ggplot(data = data, mapping = aes(x = hsc1_T2, fill = factor(hsc1_T2))) + geom_histogram(binwidth = 1)
ggplotly(q)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T2
hsc2_T2_count <- dplyr::count(data, hsc2_T2)
knitr::kable(hsc2_T2_count)
| 1 |
1 |
| 2 |
8 |
| 3 |
12 |
| 4 |
13 |
| 5 |
30 |
| 6 |
24 |
| 7 |
12 |
| NA |
14 |
r <- ggplot(data = data, mapping = aes(x = hsc2_T2, fill = factor(hsc2_T2))) + geom_histogram(binwidth = 1)
ggplotly(r)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T2
hsc3_T2_count <- dplyr::count(data, hsc3_T2)
knitr::kable(hsc3_T2_count)
| 1 |
1 |
| 2 |
2 |
| 3 |
3 |
| 4 |
11 |
| 5 |
22 |
| 6 |
33 |
| 7 |
28 |
| NA |
14 |
s <- ggplot(data = data, mapping = aes(x = hsc3_T2, fill = factor(hsc3_T2))) + geom_histogram(binwidth = 1)
ggplotly(s)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T2
hsc4_T2_count <- dplyr::count(data, hsc4_T2)
knitr::kable(hsc4_T2_count)
| 1 |
7 |
| 2 |
11 |
| 3 |
10 |
| 4 |
11 |
| 5 |
27 |
| 6 |
25 |
| 7 |
9 |
| NA |
14 |
t <- ggplot(data = data, mapping = aes(x = hsc4_T2, fill = factor(hsc4_T2))) + geom_histogram(binwidth = 1)
ggplotly(t)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T2
hsc5_T2_count <- dplyr::count(data, hsc5_T2)
knitr::kable(hsc5_T2_count)
| 3 |
2 |
| 4 |
6 |
| 5 |
16 |
| 6 |
30 |
| 7 |
46 |
| NA |
14 |
u <- ggplot(data = data, mapping = aes(x = hsc5_T2, fill = factor(hsc5_T2))) + geom_histogram(binwidth = 1)
ggplotly(u)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T2
hsc6_T2_count <- dplyr::count(data, hsc6_T2)
knitr::kable(hsc6_T2_count)
| 1 |
1 |
| 2 |
8 |
| 3 |
8 |
| 4 |
13 |
| 5 |
40 |
| 6 |
20 |
| 7 |
10 |
| NA |
14 |
v <- ggplot(data = data, mapping = aes(x = hsc6_T2, fill = factor(hsc6_T2))) + geom_histogram(binwidth = 1)
ggplotly(v)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T2
hsc7_T2_count <- dplyr::count(data, hsc7_T2)
knitr::kable(hsc7_T2_count)
| 1 |
3 |
| 2 |
9 |
| 3 |
9 |
| 4 |
23 |
| 5 |
10 |
| 6 |
27 |
| 7 |
19 |
| NA |
14 |
w <- ggplot(data = data, mapping = aes(x = hsc7_T2, fill = factor(hsc7_T2))) + geom_histogram(binwidth = 1)
ggplotly(w)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T2
hsc8_T2_count <- dplyr::count(data, hsc8_T2)
knitr::kable(hsc8_T2_count)
| 2 |
11 |
| 3 |
16 |
| 4 |
23 |
| 5 |
31 |
| 6 |
13 |
| 7 |
5 |
| NA |
15 |
neko <- ggplot(data = data, mapping = aes(x = hsc8_T2, fill = factor(hsc8_T2))) + geom_histogram(binwidth = 1)
ggplotly(neko)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T2
hsc9_T2_count <- dplyr::count(data, hsc9_T2)
knitr::kable(hsc9_T2_count)
| 1 |
4 |
| 2 |
20 |
| 3 |
15 |
| 4 |
30 |
| 5 |
17 |
| 6 |
9 |
| 7 |
5 |
| NA |
14 |
y <- ggplot(data = data, mapping = aes(x = hsc9_T2, fill = factor(hsc9_T2))) + geom_histogram(binwidth = 1)
ggplotly(y)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T2
hsc10_T2_count <- dplyr::count(data, hsc10_T2)
knitr::kable(hsc10_T2_count)
| 2 |
1 |
| 3 |
2 |
| 4 |
1 |
| 5 |
12 |
| 6 |
31 |
| 7 |
53 |
| NA |
14 |
z <- ggplot(data = data, mapping = aes(x = hsc10_T2, fill = factor(hsc10_T2))) + geom_histogram(binwidth = 1)
ggplotly(z)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T2
hsc11_T2_count <- dplyr::count(data, hsc11_T2)
knitr::kable(hsc11_T2_count)
| 1 |
2 |
| 2 |
10 |
| 3 |
11 |
| 4 |
14 |
| 5 |
30 |
| 6 |
18 |
| 7 |
14 |
| NA |
15 |
aa <- ggplot(data = data, mapping = aes(x = hsc11_T2, fill = factor(hsc11_T2))) + geom_histogram(binwidth = 1)
ggplotly(aa)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T2
hsc12_T2_count <- dplyr::count(data, hsc12_T2)
knitr::kable(hsc12_T2_count)
| 1 |
1 |
| 2 |
5 |
| 3 |
3 |
| 4 |
9 |
| 5 |
22 |
| 6 |
36 |
| 7 |
24 |
| NA |
14 |
bb <- ggplot(data = data, mapping = aes(x = hsc12_T2, fill = factor(hsc12_T2))) + geom_histogram(binwidth = 1)
ggplotly(bb)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T3
hsc1_T3_count <- dplyr::count(data, hsc1_T3)
knitr::kable(hsc1_T3_count)
| 1 |
1 |
| 2 |
3 |
| 3 |
12 |
| 4 |
19 |
| 5 |
40 |
| 6 |
24 |
| 7 |
6 |
| NA |
9 |
cc <- ggplot(data = data, mapping = aes(x = hsc1_T3, fill = factor(hsc1_T3))) + geom_histogram(binwidth = 1)
ggplotly(cc)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T3
hsc2_T3_count <- dplyr::count(data, hsc2_T3)
knitr::kable(hsc2_T3_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
9 |
| 4 |
11 |
| 5 |
28 |
| 6 |
35 |
| 7 |
15 |
| NA |
9 |
dd <- ggplot(data = data, mapping = aes(x = hsc2_T3, fill = factor(hsc2_T3))) + geom_histogram(binwidth = 1)
ggplotly(dd)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T3
hsc3_T3_count <- dplyr::count(data, hsc3_T3)
knitr::kable(hsc3_T3_count)
| 2 |
1 |
| 3 |
2 |
| 4 |
6 |
| 5 |
23 |
| 6 |
29 |
| 7 |
44 |
| NA |
9 |
ff <- ggplot(data = data, mapping = aes(x = hsc3_T3, fill = factor(hsc3_T3))) + geom_histogram(binwidth = 1)
ggplotly(ff)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T3
hsc4_T3_count <- dplyr::count(data, hsc4_T3)
knitr::kable(hsc4_T3_count)
| 1 |
3 |
| 2 |
7 |
| 3 |
3 |
| 4 |
17 |
| 5 |
37 |
| 6 |
24 |
| 7 |
14 |
| NA |
9 |
gg <- ggplot(data = data, mapping = aes(x = hsc4_T3, fill = factor(hsc4_T3))) + geom_histogram(binwidth = 1)
ggplotly(gg)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T3
hsc5_T3_count <- dplyr::count(data, hsc5_T3)
knitr::kable(hsc5_T3_count)
| 2 |
2 |
| 3 |
2 |
| 4 |
4 |
| 5 |
15 |
| 6 |
24 |
| 7 |
58 |
| NA |
9 |
hh <- ggplot(data = data, mapping = aes(x = hsc5_T3, fill = factor(hsc5_T3))) + geom_histogram(binwidth = 1)
ggplotly(hh)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T3
hsc6_T3_count <- dplyr::count(data, hsc6_T3)
knitr::kable(hsc6_T3_count)
| 1 |
2 |
| 2 |
2 |
| 3 |
5 |
| 4 |
14 |
| 5 |
31 |
| 6 |
33 |
| 7 |
17 |
| NA |
10 |
ii <- ggplot(data = data, mapping = aes(x = hsc6_T3, fill = factor(hsc6_T3))) + geom_histogram(binwidth = 1)
ggplotly(ii)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T3
hsc7_T3_count <- dplyr::count(data, hsc7_T3)
knitr::kable(hsc7_T3_count)
| 1 |
5 |
| 2 |
11 |
| 3 |
8 |
| 4 |
22 |
| 5 |
13 |
| 6 |
23 |
| 7 |
23 |
| NA |
9 |
jj <- ggplot(data = data, mapping = aes(x = hsc7_T3, fill = factor(hsc7_T3))) + geom_histogram(binwidth = 1)
ggplotly(jj)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T3
hsc8_T3_count <- dplyr::count(data, hsc8_T3)
knitr::kable(hsc8_T3_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
15 |
| 4 |
23 |
| 5 |
29 |
| 6 |
18 |
| 7 |
13 |
| NA |
9 |
kk <- ggplot(data = data, mapping = aes(x = hsc8_T3, fill = factor(hsc8_T3))) + geom_histogram(binwidth = 1)
ggplotly(kk)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T3
hsc9_T3_count <- dplyr::count(data, hsc9_T3)
knitr::kable(hsc9_T3_count)
| 1 |
6 |
| 2 |
15 |
| 3 |
16 |
| 4 |
29 |
| 5 |
25 |
| 6 |
10 |
| 7 |
4 |
| NA |
9 |
ll <- ggplot(data = data, mapping = aes(x = hsc9_T3, fill = factor(hsc9_T3))) + geom_histogram(binwidth = 1)
ggplotly(ll)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T3
hsc10_T3_count <- dplyr::count(data, hsc10_T3)
knitr::kable(hsc10_T3_count)
| 3 |
1 |
| 4 |
3 |
| 5 |
10 |
| 6 |
29 |
| 7 |
62 |
| NA |
9 |
dog <- ggplot(data = data, mapping = aes(x = hsc10_T3, fill = factor(hsc10_T3))) + geom_histogram(binwidth = 1)
ggplotly(dog)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T3
hsc11_T3_count <- dplyr::count(data, hsc11_T3)
knitr::kable(hsc11_T3_count)
| 1 |
3 |
| 2 |
4 |
| 3 |
10 |
| 4 |
22 |
| 5 |
25 |
| 6 |
25 |
| 7 |
16 |
| NA |
9 |
mm <- ggplot(data = data, mapping = aes(x = hsc11_T3, fill = factor(hsc11_T3))) + geom_histogram(binwidth = 1)
ggplotly(mm)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T3
hsc12_T3_count <- dplyr::count(data, hsc12_T3)
knitr::kable(hsc12_T3_count)
| 2 |
1 |
| 3 |
2 |
| 4 |
9 |
| 5 |
27 |
| 6 |
39 |
| 7 |
27 |
| NA |
9 |
nn <- ggplot(data = data, mapping = aes(x = hsc12_T3, fill = factor(hsc12_T3))) + geom_histogram(binwidth = 1)
ggplotly(nn)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T4
hsc1_T4_count <- dplyr::count(data, hsc1_T4)
knitr::kable(hsc1_T4_count)
| 1 |
1 |
| 2 |
2 |
| 3 |
15 |
| 4 |
17 |
| 5 |
41 |
| 6 |
27 |
| 7 |
3 |
| NA |
8 |
oo <- ggplot(data = data, mapping = aes(x = hsc1_T4, fill = factor(hsc1_T4))) + geom_histogram(binwidth = 1)
ggplotly(oo)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T4
hsc2_T4_count <- dplyr::count(data, hsc2_T4)
knitr::kable(hsc2_T4_count)
| 2 |
9 |
| 3 |
11 |
| 4 |
9 |
| 5 |
32 |
| 6 |
32 |
| 7 |
13 |
| NA |
8 |
pp <- ggplot(data = data, mapping = aes(x = hsc2_T4, fill = factor(hsc2_T4))) + geom_histogram(binwidth = 1)
ggplotly(pp)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T4
hsc3_T4_count <- dplyr::count(data, hsc3_T4)
knitr::kable(hsc3_T4_count)
| 2 |
2 |
| 3 |
2 |
| 4 |
9 |
| 5 |
21 |
| 6 |
29 |
| 7 |
43 |
| NA |
8 |
qq <- ggplot(data = data, mapping = aes(x = hsc3_T4, fill = factor(hsc3_T4))) + geom_histogram(binwidth = 1)
ggplotly(qq)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T4
hsc4_T4_count <- dplyr::count(data, hsc4_T4)
knitr::kable(hsc4_T4_count)
| 1 |
5 |
| 2 |
5 |
| 3 |
13 |
| 4 |
12 |
| 5 |
35 |
| 6 |
22 |
| 7 |
14 |
| NA |
8 |
rr <- ggplot(data = data, mapping = aes(x = hsc4_T4, fill = factor(hsc4_T4))) + geom_histogram(binwidth = 1)
ggplotly(rr)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T4
hsc5_T4_count <- dplyr::count(data, hsc5_T4)
knitr::kable(hsc5_T4_count)
| 2 |
1 |
| 3 |
4 |
| 4 |
3 |
| 5 |
19 |
| 6 |
23 |
| 7 |
54 |
| NA |
10 |
ss <- ggplot(data = data, mapping = aes(x = hsc5_T4, fill = factor(hsc5_T4))) + geom_histogram(binwidth = 1)
ggplotly(ss)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T4
hsc6_T4_count <- dplyr::count(data, hsc6_T4)
knitr::kable(hsc6_T4_count)
| 1 |
2 |
| 2 |
8 |
| 3 |
8 |
| 4 |
9 |
| 5 |
38 |
| 6 |
29 |
| 7 |
12 |
| NA |
8 |
inu <- ggplot(data = data, mapping = aes(x = hsc6_T4, fill = factor(hsc6_T4))) + geom_histogram(binwidth = 1)
ggplotly(inu)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T4
hsc7_T4_count <- dplyr::count(data, hsc7_T4)
knitr::kable(hsc7_T4_count)
| 1 |
4 |
| 2 |
9 |
| 3 |
11 |
| 4 |
16 |
| 5 |
18 |
| 6 |
27 |
| 7 |
21 |
| NA |
8 |
tt <- ggplot(data = data, mapping = aes(x = hsc7_T4, fill = factor(hsc7_T4))) + geom_histogram(binwidth = 1)
ggplotly(tt)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T4
hsc8_T4_count <- dplyr::count(data, hsc8_T4)
knitr::kable(hsc8_T4_count)
| 1 |
2 |
| 2 |
5 |
| 3 |
17 |
| 4 |
20 |
| 5 |
34 |
| 6 |
17 |
| 7 |
11 |
| NA |
8 |
vv <- ggplot(data = data, mapping = aes(x = hsc8_T4, fill = factor(hsc8_T4))) + geom_histogram(binwidth = 1)
ggplotly(vv)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T4
hsc9_T4_count <- dplyr::count(data, hsc9_T4)
knitr::kable(hsc9_T4_count)
| 1 |
6 |
| 2 |
13 |
| 3 |
19 |
| 4 |
30 |
| 5 |
24 |
| 6 |
11 |
| 7 |
3 |
| NA |
8 |
ww <- ggplot(data = data, mapping = aes(x = hsc9_T4, fill = factor(hsc9_T4))) + geom_histogram(binwidth = 1)
ggplotly(ww)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T4
hsc10_T4_count <- dplyr::count(data, hsc10_T4)
knitr::kable(hsc10_T4_count)
| 2 |
1 |
| 3 |
1 |
| 4 |
3 |
| 5 |
11 |
| 6 |
30 |
| 7 |
60 |
| NA |
8 |
kame <- ggplot(data = data, mapping = aes(x = hsc10_T4, fill = factor(hsc10_T4))) + geom_histogram(binwidth = 1)
ggplotly(kame)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T4
hsc11_T4_count <- dplyr::count(data, hsc11_T4)
knitr::kable(hsc11_T4_count)
| 1 |
2 |
| 2 |
10 |
| 3 |
11 |
| 4 |
18 |
| 5 |
28 |
| 6 |
22 |
| 7 |
15 |
| NA |
8 |
yy <- ggplot(data = data, mapping = aes(x = hsc11_T4, fill = factor(hsc11_T4))) + geom_histogram(binwidth = 1)
ggplotly(yy)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T4
hsc12_T4_count <- dplyr::count(data, hsc12_T4)
knitr::kable(hsc12_T4_count)
| 1 |
1 |
| 2 |
5 |
| 3 |
2 |
| 4 |
7 |
| 5 |
31 |
| 6 |
31 |
| 7 |
29 |
| NA |
8 |
zz <- ggplot(data = data, mapping = aes(x = hsc12_T4, fill = factor(hsc12_T4))) + geom_histogram(binwidth = 1)
ggplotly(zz)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T1
wb1_T1_count <- dplyr::count(data, wb1_T1)
knitr::kable(wb1_T1_count)
| 0 |
1 |
| 1 |
6 |
| 2 |
27 |
| 3 |
39 |
| 4 |
31 |
| 5 |
10 |
aaa <- ggplot(data = data, mapping = aes(x = wb1_T1, fill = factor(wb1_T1))) + geom_histogram(binwidth = 1)
ggplotly(aaa)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T1
wb2_T1_count <- dplyr::count(data, wb2_T1)
knitr::kable(wb2_T1_count)
| 0 |
2 |
| 1 |
12 |
| 2 |
31 |
| 3 |
40 |
| 4 |
23 |
| 5 |
6 |
bbb <- ggplot(data = data, mapping = aes(x = wb2_T1, fill = factor(wb2_T1))) + geom_histogram(binwidth = 1)
ggplotly(bbb)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T1
wb3_T1_count <- dplyr::count(data, wb3_T1)
knitr::kable(wb3_T1_count)
| 0 |
2 |
| 1 |
11 |
| 2 |
26 |
| 3 |
36 |
| 4 |
28 |
| 5 |
10 |
| NA |
1 |
ccc <- ggplot(data = data, mapping = aes(x = wb3_T1, fill = factor(wb3_T1))) + geom_histogram(binwidth = 1)
ggplotly(ccc)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T1
wb4_T1_count <- dplyr::count(data, wb4_T1)
knitr::kable(wb4_T1_count)
| 0 |
4 |
| 1 |
35 |
| 2 |
34 |
| 3 |
27 |
| 4 |
9 |
| 5 |
5 |
ddd <- ggplot(data = data, mapping = aes(x = wb4_T1, fill = factor(wb4_T1))) + geom_histogram(binwidth = 1)
ggplotly(ddd)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T1
wb5_T1_count <- dplyr::count(data, wb5_T1)
knitr::kable(wb5_T1_count)
| 0 |
3 |
| 1 |
15 |
| 2 |
29 |
| 3 |
38 |
| 4 |
22 |
| 5 |
7 |
eee <- ggplot(data = data, mapping = aes(x = wb5_T1, fill = factor(wb5_T1))) + geom_histogram(binwidth = 1)
ggplotly(eee)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T2
wb1_T2_count <- dplyr::count(data, wb1_T2)
knitr::kable(wb1_T2_count)
| 1 |
5 |
| 2 |
23 |
| 3 |
30 |
| 4 |
33 |
| 5 |
9 |
| NA |
14 |
fff <- ggplot(data = data, mapping = aes(x = wb1_T2, fill = factor(wb1_T2))) + geom_histogram(binwidth = 1)
ggplotly(fff)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T2
wb2_T2_count <- dplyr::count(data, wb2_T2)
knitr::kable(wb2_T2_count)
| 1 |
7 |
| 2 |
23 |
| 3 |
28 |
| 4 |
32 |
| 5 |
9 |
| NA |
15 |
ggg <- ggplot(data = data, mapping = aes(x = wb2_T2, fill = factor(wb2_T2))) + geom_histogram(binwidth = 1)
ggplotly(ggg)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T2
wb3_T2_count <- dplyr::count(data, wb3_T2)
knitr::kable(wb3_T2_count)
| 1 |
10 |
| 2 |
16 |
| 3 |
36 |
| 4 |
25 |
| 5 |
13 |
| NA |
14 |
hhh <- ggplot(data = data, mapping = aes(x = wb3_T2, fill = factor(wb3_T2))) + geom_histogram(binwidth = 1)
ggplotly(hhh)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T2
wb4_T2_count <- dplyr::count(data, wb4_T2)
knitr::kable(wb4_T2_count)
| 0 |
2 |
| 1 |
26 |
| 2 |
29 |
| 3 |
23 |
| 4 |
12 |
| 5 |
8 |
| NA |
14 |
iii <- ggplot(data = data, mapping = aes(x = wb4_T2, fill = factor(wb4_T2))) + geom_histogram(binwidth = 1)
ggplotly(iii)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T2
wb5_T2_count <- dplyr::count(data, wb5_T2)
knitr::kable(wb5_T2_count)
| 1 |
12 |
| 2 |
26 |
| 3 |
28 |
| 4 |
21 |
| 5 |
13 |
| NA |
14 |
jjj <- ggplot(data = data, mapping = aes(x = wb5_T2, fill = factor(wb5_T2))) + geom_histogram(binwidth = 1)
ggplotly(jjj)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T3
wb1_T3_count <- dplyr::count(data, wb1_T3)
knitr::kable(wb1_T3_count)
| 0 |
1 |
| 1 |
6 |
| 2 |
18 |
| 3 |
36 |
| 4 |
28 |
| 5 |
16 |
| NA |
9 |
kkk <- ggplot(data = data, mapping = aes(x = wb1_T3, fill = factor(wb1_T3))) + geom_histogram(binwidth = 1)
ggplotly(kkk)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T3
wb2_T3_count <- dplyr::count(data, wb2_T3)
knitr::kable(wb2_T3_count)
| 0 |
1 |
| 1 |
12 |
| 2 |
22 |
| 3 |
32 |
| 4 |
27 |
| 5 |
11 |
| NA |
9 |
lll <- ggplot(data = data, mapping = aes(x = wb2_T3, fill = factor(wb2_T3))) + geom_histogram(binwidth = 1)
ggplotly(lll)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T3
wb3_T3_count <- dplyr::count(data, wb3_T3)
knitr::kable(wb1_T3_count)
| 0 |
1 |
| 1 |
6 |
| 2 |
18 |
| 3 |
36 |
| 4 |
28 |
| 5 |
16 |
| NA |
9 |
mmm <- ggplot(data = data, mapping = aes(x = wb3_T3, fill = factor(wb3_T3))) + geom_histogram(binwidth = 1)
ggplotly(mmm)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T3
wb4_T3_count <- dplyr::count(data, wb4_T3)
knitr::kable(wb4_T3_count)
| 0 |
6 |
| 1 |
20 |
| 2 |
40 |
| 3 |
18 |
| 4 |
15 |
| 5 |
6 |
| NA |
9 |
nnn <- ggplot(data = data, mapping = aes(x = wb4_T3, fill = factor(wb4_T3))) + geom_histogram(binwidth = 1)
ggplotly(nnn)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T3
wb5_T3_count <- dplyr::count(data, wb5_T3)
knitr::kable(wb5_T3_count)
| 0 |
1 |
| 1 |
16 |
| 2 |
27 |
| 3 |
38 |
| 4 |
16 |
| 5 |
7 |
| NA |
9 |
ooo <- ggplot(data = data, mapping = aes(x = wb5_T3, fill = factor(wb5_T3))) + geom_histogram(binwidth = 1)
ggplotly(ooo)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T4
wb1_T4_count <- dplyr::count(data, wb1_T4)
knitr::kable(wb1_T4_count)
| 0 |
1 |
| 1 |
10 |
| 2 |
17 |
| 3 |
34 |
| 4 |
34 |
| 5 |
10 |
| NA |
8 |
ppp <- ggplot(data = data, mapping = aes(x = wb1_T4, fill = factor(wb1_T4))) + geom_histogram(binwidth = 1)
ggplotly(ppp)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T4
wb2_T4_count <- dplyr::count(data, wb2_T4)
knitr::kable(wb2_T4_count)
| 0 |
3 |
| 1 |
14 |
| 2 |
24 |
| 3 |
32 |
| 4 |
21 |
| 5 |
12 |
| NA |
8 |
qqq <- ggplot(data = data, mapping = aes(x = wb2_T4, fill = factor(wb2_T4))) + geom_histogram(binwidth = 1)
ggplotly(qqq)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T4
wb3_T4_count <- dplyr::count(data, wb3_T4)
knitr::kable(wb3_T4_count)
| 0 |
1 |
| 1 |
9 |
| 2 |
25 |
| 3 |
31 |
| 4 |
23 |
| 5 |
17 |
| NA |
8 |
rrr <- ggplot(data = data, mapping = aes(x = wb3_T4, fill = factor(wb3_T4))) + geom_histogram(binwidth = 1)
ggplotly(rrr)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T4
wb5_T4_count <- dplyr::count(data, wb5_T4)
knitr::kable(wb5_T4_count)
| 0 |
4 |
| 1 |
12 |
| 2 |
25 |
| 3 |
30 |
| 4 |
20 |
| 5 |
15 |
| NA |
8 |
sss <- ggplot(data = data, mapping = aes(x = wb5_T4, fill = factor(wb5_T4))) + geom_histogram(binwidth = 1)
ggplotly(sss)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T1
event1_T1_count <- dplyr::count(data, ev1_T1)
knitr::kable(event1_T1_count)
| -3 |
16 |
| -2 |
11 |
| -1 |
9 |
| 0 |
3 |
| 1 |
8 |
| 2 |
11 |
| 3 |
55 |
| NA |
1 |
ttt <- ggplot(data = data, mapping = aes(x = ev1_T1, fill = factor(ev1_T1))) + geom_histogram(binwidth = 1)
ggplotly(ttt)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T1
event2_T1_count <- dplyr::count(data, ev2_T1)
knitr::kable(event2_T1_count)
| -3 |
21 |
| -2 |
16 |
| -1 |
8 |
| 0 |
5 |
| 1 |
2 |
| 2 |
19 |
| 3 |
42 |
| NA |
1 |
uuu <- ggplot(data = data, mapping = aes(x = ev2_T1, fill = factor(ev2_T1))) + geom_histogram(binwidth = 1)
ggplotly(uuu)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T2
event1_T2_count <- dplyr::count(data, ev1_T2)
knitr::kable(event1_T2_count)
| -3 |
17 |
| -2 |
7 |
| -1 |
4 |
| 0 |
4 |
| 1 |
6 |
| 2 |
13 |
| 3 |
47 |
| NA |
16 |
vvv <- ggplot(data = data, mapping = aes(x = ev1_T2, fill = factor(ev1_T2))) + geom_histogram(binwidth = 1)
ggplotly(vvv)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T2
event2_T2_count <- dplyr::count(data, ev2_T2)
knitr::kable(event2_T2_count)
| -3 |
20 |
| -2 |
15 |
| -1 |
5 |
| 0 |
1 |
| 1 |
8 |
| 2 |
17 |
| 3 |
29 |
| NA |
19 |
www <- ggplot(data = data, mapping = aes(x = ev2_T2, fill = factor(ev2_T2))) + geom_histogram(binwidth = 1)
ggplotly(www)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T3
event1_T3_count <- dplyr::count(data, ev1_T3)
knitr::kable(event1_T3_count)
| -3 |
19 |
| -2 |
6 |
| -1 |
10 |
| 0 |
6 |
| 1 |
4 |
| 2 |
11 |
| 3 |
47 |
| NA |
11 |
usagi <- ggplot(data = data, mapping = aes(x = ev1_T3, fill = factor(ev1_T3))) + geom_histogram(binwidth = 1)
ggplotly(usagi)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T3
event2_T3_count <- dplyr::count(data, ev2_T3)
knitr::kable(event2_T3_count)
| -3 |
22 |
| -2 |
12 |
| -1 |
4 |
| 0 |
5 |
| 1 |
13 |
| 2 |
13 |
| 3 |
34 |
| NA |
11 |
yyy <- ggplot(data = data, mapping = aes(x = ev2_T3, fill = factor(ev2_T3))) + geom_histogram(binwidth = 1)
ggplotly(yyy)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T4
event1_T4_count <- dplyr::count(data, ev1_T4)
knitr::kable(event1_T4_count)
| -3 |
15 |
| -2 |
5 |
| -1 |
3 |
| 0 |
4 |
| 1 |
10 |
| 2 |
15 |
| 3 |
49 |
| NA |
13 |
zzz <- ggplot(data = data, mapping = aes(x = ev1_T4, fill = factor(ev1_T4))) + geom_histogram(binwidth = 1)
ggplotly(zzz)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T4
event2_T4_count <- dplyr::count(data, ev2_T4)
knitr::kable(event2_T4_count)
| -3 |
15 |
| -2 |
13 |
| -1 |
10 |
| 0 |
9 |
| 1 |
9 |
| 2 |
14 |
| 3 |
31 |
| NA |
13 |
aaaa <- ggplot(data = data, mapping = aes(x = ev2_T4, fill = factor(ev2_T4))) + geom_histogram(binwidth = 1)
ggplotly(aaaa)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T1
eoe_T1_count <- dplyr::count(data, eoe_T1)
knitr::kable(eoe_T1_count)
| 1.8 |
2 |
| 2.2 |
1 |
| 2.4 |
2 |
| 2.6 |
1 |
| 2.8 |
1 |
| 3.0 |
1 |
| 3.2 |
3 |
| 3.4 |
5 |
| 3.6 |
2 |
| 3.8 |
10 |
| 4.0 |
6 |
| 4.2 |
14 |
| 4.4 |
6 |
| 4.6 |
7 |
| 4.8 |
11 |
| 5.0 |
9 |
| 5.2 |
10 |
| 5.4 |
5 |
| 5.6 |
6 |
| 5.8 |
5 |
| 6.0 |
4 |
| 6.4 |
3 |
bbbb <- ggplot(data = data, mapping = aes(x = eoe_T1, fill = factor(eoe_T1))) + geom_histogram(binwidth = 1)
ggplotly(bbbb)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T2
eoe_T2_count <- dplyr::count(data, eoe_T2)
knitr::kable(eoe_T2_count)
| 1.8 |
2 |
| 2.0 |
1 |
| 2.4 |
1 |
| 2.6 |
2 |
| 2.8 |
2 |
| 3.0 |
1 |
| 3.2 |
2 |
| 3.4 |
2 |
| 3.6 |
2 |
| 3.8 |
4 |
| 4.0 |
5 |
| 4.2 |
8 |
| 4.4 |
6 |
| 4.6 |
9 |
| 4.8 |
16 |
| 5.0 |
3 |
| 5.2 |
7 |
| 5.4 |
5 |
| 5.6 |
9 |
| 5.8 |
2 |
| 6.0 |
3 |
| 6.2 |
4 |
| 6.4 |
1 |
| 6.6 |
1 |
| 6.8 |
1 |
| NA |
15 |
cccc <- ggplot(data = data, mapping = aes(x = eoe_T2, fill = factor(eoe_T2))) + geom_histogram(binwidth = 1)
ggplotly(cccc)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T3
eoe_T3_count <- dplyr::count(data, eoe_T3)
knitr::kable(eoe_T3_count)
| 2.0 |
1 |
| 2.2 |
1 |
| 2.4 |
1 |
| 2.6 |
1 |
| 3.0 |
2 |
| 3.2 |
1 |
| 3.6 |
1 |
| 3.8 |
4 |
| 4.0 |
3 |
| 4.2 |
5 |
| 4.4 |
7 |
| 4.6 |
10 |
| 4.8 |
8 |
| 5.0 |
14 |
| 5.2 |
11 |
| 5.4 |
11 |
| 5.6 |
7 |
| 5.8 |
3 |
| 6.0 |
2 |
| 6.2 |
2 |
| 6.4 |
5 |
| 6.6 |
2 |
| 7.0 |
2 |
| NA |
10 |
dddd <- ggplot(data = data, mapping = aes(x = eoe_T3, fill = factor(eoe_T3))) + geom_histogram(binwidth = 1)
ggplotly(dddd)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T4
eoe_T4_count <- dplyr::count(data, eoe_T4)
knitr::kable(eoe_T4_count)
| 1.0 |
1 |
| 2.0 |
1 |
| 2.2 |
1 |
| 2.4 |
1 |
| 2.6 |
1 |
| 2.8 |
3 |
| 3.0 |
2 |
| 3.2 |
3 |
| 3.4 |
1 |
| 3.6 |
1 |
| 3.8 |
3 |
| 4.0 |
6 |
| 4.2 |
2 |
| 4.4 |
7 |
| 4.6 |
13 |
| 4.8 |
7 |
| 5.0 |
7 |
| 5.2 |
10 |
| 5.4 |
7 |
| 5.6 |
11 |
| 5.8 |
6 |
| 6.0 |
5 |
| 6.2 |
2 |
| 6.4 |
2 |
| 6.6 |
1 |
| 6.8 |
1 |
| 7.0 |
1 |
| NA |
8 |
eeee <- ggplot(data = data, mapping = aes(x = eoe_T4, fill = factor(eoe_T4))) + geom_histogram(binwidth = 1)
ggplotly(eeee)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T1
lst_T1_count <- dplyr::count(data, lst_T1)
knitr::kable(lst_T1_count)
| 1.5 |
2 |
| 2.0 |
3 |
| 2.5 |
3 |
| 3.0 |
7 |
| 3.5 |
15 |
| 4.0 |
8 |
| 4.5 |
14 |
| 5.0 |
15 |
| 5.5 |
16 |
| 6.0 |
10 |
| 6.5 |
9 |
| 7.0 |
12 |
ffff <- ggplot(data = data, mapping = aes(x = lst_T1, fill = factor(lst_T1))) + geom_histogram(binwidth = 1)
ggplotly(ffff)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T2
lst_T2_count <- dplyr::count(data, lst_T2)
knitr::kable(lst_T2_count)
| 1.0 |
1 |
| 2.0 |
6 |
| 2.5 |
4 |
| 3.0 |
5 |
| 3.5 |
6 |
| 4.0 |
9 |
| 4.5 |
11 |
| 5.0 |
18 |
| 5.5 |
13 |
| 6.0 |
12 |
| 6.5 |
7 |
| 7.0 |
7 |
| NA |
15 |
gggg <- ggplot(data = data, mapping = aes(x = lst_T2, fill = factor(lst_T2))) + geom_histogram(binwidth = 1)
ggplotly(gggg)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T3
lst_T3_count <- dplyr::count(data, lst_T3)
knitr::kable(lst_T3_count)
| 1.0 |
1 |
| 1.5 |
1 |
| 2.0 |
2 |
| 2.5 |
1 |
| 3.0 |
8 |
| 3.5 |
5 |
| 4.0 |
13 |
| 4.5 |
7 |
| 5.0 |
17 |
| 5.5 |
13 |
| 6.0 |
19 |
| 6.5 |
7 |
| 7.0 |
11 |
| NA |
9 |
hhhh <- ggplot(data = data, mapping = aes(x = lst_T3, fill = factor(lst_T3))) + geom_histogram(binwidth = 1)
ggplotly(hhhh)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T4
lst_T4_count <- dplyr::count(data, lst_T4)
knitr::kable(lst_T4_count)
| 2.0 |
6 |
| 2.5 |
3 |
| 3.0 |
9 |
| 3.5 |
4 |
| 4.0 |
10 |
| 4.5 |
8 |
| 5.0 |
22 |
| 5.5 |
11 |
| 6.0 |
18 |
| 6.5 |
6 |
| 7.0 |
9 |
| NA |
8 |
iiii <- ggplot(data = data, mapping = aes(x = lst_T4, fill = factor(lst_T4))) + geom_histogram(binwidth = 1)
ggplotly(iiii)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T1
aes_T1_count <- dplyr::count(data, aes_T1)
knitr::kable(aes_T1_count)
| 3.25 |
1 |
| 4.25 |
1 |
| 4.50 |
2 |
| 4.75 |
6 |
| 5.00 |
6 |
| 5.25 |
15 |
| 5.50 |
9 |
| 5.75 |
22 |
| 6.00 |
21 |
| 6.25 |
11 |
| 6.50 |
9 |
| 6.75 |
5 |
| 7.00 |
5 |
| NA |
1 |
jjjj <- ggplot(data = data, mapping = aes(x = aes_T1, fill = factor(aes_T1))) + geom_histogram(binwidth = 1)
ggplotly(jjjj)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T2
aes_T2_count <- dplyr::count(data, aes_T2)
knitr::kable(aes_T2_count)
| 2.50 |
1 |
| 3.50 |
1 |
| 4.00 |
1 |
| 4.50 |
3 |
| 4.75 |
3 |
| 5.00 |
10 |
| 5.25 |
12 |
| 5.50 |
15 |
| 5.75 |
11 |
| 6.00 |
13 |
| 6.25 |
15 |
| 6.50 |
6 |
| 6.75 |
6 |
| 7.00 |
3 |
| NA |
14 |
kkkk <- ggplot(data = data, mapping = aes(x = aes_T2, fill = factor(aes_T2))) + geom_histogram(binwidth = 1)
ggplotly(kkkk)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T3
aes_T3_count <- dplyr::count(data, aes_T3)
knitr::kable(aes_T3_count)
| 4.00 |
2 |
| 4.25 |
1 |
| 4.50 |
2 |
| 4.75 |
1 |
| 5.00 |
10 |
| 5.25 |
9 |
| 5.50 |
13 |
| 5.75 |
15 |
| 6.00 |
9 |
| 6.25 |
17 |
| 6.50 |
14 |
| 6.75 |
7 |
| 7.00 |
5 |
| NA |
9 |
llll <- ggplot(data = data, mapping = aes(x = aes_T3, fill = factor(aes_T3))) + geom_histogram(binwidth = 1)
ggplotly(llll)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T4
aes_T4_count <- dplyr::count(data, aes_T4)
knitr::kable(aes_T4_count)
| 2.75 |
2 |
| 3.50 |
1 |
| 4.25 |
2 |
| 4.50 |
2 |
| 4.75 |
4 |
| 5.00 |
5 |
| 5.25 |
10 |
| 5.50 |
12 |
| 5.75 |
10 |
| 6.00 |
16 |
| 6.25 |
13 |
| 6.50 |
12 |
| 6.75 |
14 |
| 7.00 |
1 |
| NA |
10 |
mmmm <- ggplot(data = data, mapping = aes(x = aes_T4, fill = factor(aes_T4))) + geom_histogram(binwidth = 1)
ggplotly(mmmm)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T1
hsc_T1_count <- dplyr::count(data, hsc_T1)
knitr::kable(hsc_T1_count)
| 3.183333 |
1 |
| 3.300000 |
1 |
| 3.383333 |
1 |
| 3.400000 |
1 |
| 3.416667 |
1 |
| 3.650000 |
1 |
| 3.766667 |
1 |
| 3.933333 |
1 |
| 3.966667 |
1 |
| 3.983333 |
1 |
| 4.016667 |
1 |
| 4.066667 |
1 |
| 4.116667 |
1 |
| 4.150000 |
1 |
| 4.183333 |
1 |
| 4.266667 |
1 |
| 4.283333 |
1 |
| 4.316667 |
1 |
| 4.350000 |
2 |
| 4.383333 |
1 |
| 4.433333 |
1 |
| 4.450000 |
1 |
| 4.483333 |
3 |
| 4.500000 |
2 |
| 4.516667 |
1 |
| 4.633333 |
1 |
| 4.650000 |
1 |
| 4.683333 |
1 |
| 4.733333 |
1 |
| 4.750000 |
2 |
| 4.766667 |
2 |
| 4.800000 |
1 |
| 4.816667 |
1 |
| 4.850000 |
5 |
| 4.866667 |
1 |
| 4.883333 |
1 |
| 4.916667 |
1 |
| 4.933333 |
1 |
| 5.000000 |
2 |
| 5.016667 |
1 |
| 5.050000 |
1 |
| 5.066667 |
1 |
| 5.116667 |
1 |
| 5.150000 |
1 |
| 5.166667 |
2 |
| 5.200000 |
1 |
| 5.216667 |
2 |
| 5.233333 |
1 |
| 5.250000 |
1 |
| 5.283333 |
2 |
| 5.300000 |
1 |
| 5.316667 |
3 |
| 5.333333 |
2 |
| 5.366667 |
1 |
| 5.383333 |
1 |
| 5.416667 |
1 |
| 5.433333 |
2 |
| 5.450000 |
1 |
| 5.466667 |
1 |
| 5.483333 |
3 |
| 5.500000 |
1 |
| 5.516667 |
2 |
| 5.533333 |
1 |
| 5.566667 |
3 |
| 5.583333 |
1 |
| 5.616667 |
3 |
| 5.666667 |
1 |
| 5.683333 |
1 |
| 5.700000 |
1 |
| 5.733333 |
2 |
| 5.766667 |
1 |
| 5.800000 |
4 |
| 5.833333 |
1 |
| 5.850000 |
1 |
| 5.900000 |
1 |
| 5.916667 |
1 |
| 6.066667 |
1 |
| 6.083333 |
1 |
| 6.116667 |
1 |
| 6.133333 |
1 |
| 6.300000 |
1 |
| 6.383333 |
1 |
| 6.466667 |
1 |
| 6.600000 |
1 |
| NA |
1 |
nnnn <- ggplot(data = data, mapping = aes(x = hsc_T1, fill = factor(hsc_T1))) + geom_histogram(binwidth = 0.1)
ggplotly(nnnn)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T2
hsc_T2_count <- dplyr::count(data, hsc_T2)
knitr::kable(hsc_T2_count)
| 2.533333 |
1 |
| 2.916667 |
1 |
| 3.066667 |
1 |
| 3.600000 |
1 |
| 3.616667 |
1 |
| 3.716667 |
1 |
| 3.850000 |
1 |
| 4.000000 |
1 |
| 4.016667 |
1 |
| 4.033333 |
1 |
| 4.050000 |
1 |
| 4.100000 |
2 |
| 4.166667 |
2 |
| 4.233333 |
1 |
| 4.316667 |
1 |
| 4.400000 |
1 |
| 4.433333 |
1 |
| 4.466667 |
1 |
| 4.500000 |
1 |
| 4.516667 |
3 |
| 4.533333 |
1 |
| 4.550000 |
2 |
| 4.566667 |
1 |
| 4.633333 |
1 |
| 4.650000 |
1 |
| 4.733333 |
2 |
| 4.766667 |
1 |
| 4.783333 |
2 |
| 4.866667 |
1 |
| 4.883333 |
2 |
| 4.900000 |
1 |
| 4.933333 |
2 |
| 4.950000 |
1 |
| 4.983333 |
1 |
| 5.000000 |
1 |
| 5.016667 |
1 |
| 5.066667 |
1 |
| 5.100000 |
1 |
| 5.116667 |
1 |
| 5.150000 |
2 |
| 5.183333 |
2 |
| 5.200000 |
2 |
| 5.233333 |
2 |
| 5.250000 |
1 |
| 5.283333 |
1 |
| 5.300000 |
1 |
| 5.333333 |
1 |
| 5.350000 |
1 |
| 5.383333 |
1 |
| 5.416667 |
2 |
| 5.433333 |
2 |
| 5.450000 |
1 |
| 5.466667 |
1 |
| 5.516667 |
1 |
| 5.533333 |
1 |
| 5.616667 |
2 |
| 5.633333 |
1 |
| 5.666667 |
2 |
| 5.683333 |
3 |
| 5.700000 |
3 |
| 5.766667 |
1 |
| 5.783333 |
1 |
| 5.800000 |
1 |
| 5.816667 |
1 |
| 5.866667 |
1 |
| 5.883333 |
1 |
| 5.950000 |
1 |
| 6.016667 |
2 |
| 6.066667 |
2 |
| 6.150000 |
1 |
| 6.233333 |
2 |
| 6.283333 |
1 |
| 6.683333 |
1 |
| 6.800000 |
1 |
| NA |
16 |
oooo <- ggplot(data = data, mapping = aes(x = hsc_T2, fill = factor(hsc_T2))) + geom_histogram(binwidth = 0.1)
ggplotly(oooo)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T3
hsc_T3_count <- dplyr::count(data, hsc_T3)
knitr::kable(hsc_T3_count)
| 3.383333 |
1 |
| 3.483333 |
1 |
| 3.500000 |
1 |
| 3.766667 |
1 |
| 3.916667 |
1 |
| 3.950000 |
1 |
| 4.000000 |
1 |
| 4.016667 |
1 |
| 4.083333 |
1 |
| 4.150000 |
1 |
| 4.216667 |
1 |
| 4.283333 |
1 |
| 4.400000 |
1 |
| 4.433333 |
1 |
| 4.450000 |
1 |
| 4.483333 |
1 |
| 4.533333 |
1 |
| 4.566667 |
2 |
| 4.700000 |
2 |
| 4.766667 |
2 |
| 4.800000 |
1 |
| 4.866667 |
2 |
| 4.883333 |
1 |
| 4.916667 |
2 |
| 4.933333 |
1 |
| 4.950000 |
1 |
| 4.966667 |
2 |
| 4.983333 |
2 |
| 5.000000 |
1 |
| 5.033333 |
2 |
| 5.050000 |
1 |
| 5.100000 |
2 |
| 5.116667 |
1 |
| 5.133333 |
4 |
| 5.166667 |
2 |
| 5.183333 |
1 |
| 5.233333 |
1 |
| 5.250000 |
1 |
| 5.300000 |
1 |
| 5.316667 |
1 |
| 5.333333 |
2 |
| 5.400000 |
2 |
| 5.416667 |
4 |
| 5.433333 |
1 |
| 5.483333 |
2 |
| 5.500000 |
1 |
| 5.516667 |
1 |
| 5.533333 |
1 |
| 5.550000 |
1 |
| 5.583333 |
1 |
| 5.616667 |
1 |
| 5.633333 |
1 |
| 5.666667 |
1 |
| 5.683333 |
2 |
| 5.700000 |
1 |
| 5.716667 |
1 |
| 5.733333 |
2 |
| 5.800000 |
2 |
| 5.816667 |
1 |
| 5.883333 |
1 |
| 5.950000 |
1 |
| 5.983333 |
1 |
| 6.000000 |
1 |
| 6.016667 |
1 |
| 6.033333 |
1 |
| 6.050000 |
1 |
| 6.083333 |
1 |
| 6.100000 |
1 |
| 6.116667 |
1 |
| 6.133333 |
2 |
| 6.150000 |
1 |
| 6.166667 |
1 |
| 6.216667 |
1 |
| 6.333333 |
1 |
| 6.366667 |
1 |
| 6.383333 |
1 |
| 6.450000 |
2 |
| 6.566667 |
1 |
| 6.800000 |
1 |
| 6.916667 |
1 |
| NA |
10 |
pppp <- ggplot(data = data, mapping = aes(x = hsc_T3, fill = factor(hsc_T3))) + geom_histogram(binwidth = 0.1)
ggplotly(pppp)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T4
hsc_T4_count <- dplyr::count(data, hsc_T4)
knitr::kable(hsc_T4_count)
| 2.616667 |
1 |
| 3.083333 |
1 |
| 3.183333 |
1 |
| 3.583333 |
1 |
| 3.633333 |
1 |
| 3.833333 |
1 |
| 3.850000 |
1 |
| 3.916667 |
1 |
| 3.933333 |
2 |
| 4.066667 |
1 |
| 4.233333 |
2 |
| 4.250000 |
1 |
| 4.333333 |
2 |
| 4.350000 |
1 |
| 4.366667 |
1 |
| 4.516667 |
1 |
| 4.533333 |
1 |
| 4.616667 |
3 |
| 4.633333 |
2 |
| 4.650000 |
1 |
| 4.666667 |
1 |
| 4.716667 |
1 |
| 4.750000 |
1 |
| 4.766667 |
1 |
| 4.783333 |
3 |
| 4.800000 |
1 |
| 4.833333 |
2 |
| 4.850000 |
1 |
| 4.866667 |
2 |
| 4.883333 |
1 |
| 4.900000 |
1 |
| 4.916667 |
1 |
| 4.933333 |
1 |
| 4.950000 |
1 |
| 5.000000 |
1 |
| 5.033333 |
1 |
| 5.100000 |
1 |
| 5.116667 |
2 |
| 5.150000 |
1 |
| 5.166667 |
1 |
| 5.200000 |
1 |
| 5.250000 |
1 |
| 5.300000 |
2 |
| 5.316667 |
2 |
| 5.333333 |
1 |
| 5.350000 |
1 |
| 5.366667 |
1 |
| 5.383333 |
1 |
| 5.400000 |
1 |
| 5.416667 |
1 |
| 5.433333 |
1 |
| 5.466667 |
1 |
| 5.483333 |
1 |
| 5.533333 |
2 |
| 5.550000 |
2 |
| 5.566667 |
1 |
| 5.633333 |
1 |
| 5.683333 |
2 |
| 5.700000 |
1 |
| 5.716667 |
1 |
| 5.733333 |
1 |
| 5.750000 |
2 |
| 5.766667 |
3 |
| 5.783333 |
2 |
| 5.816667 |
1 |
| 5.850000 |
1 |
| 5.866667 |
1 |
| 5.883333 |
1 |
| 5.900000 |
2 |
| 5.966667 |
1 |
| 5.983333 |
1 |
| 6.050000 |
1 |
| 6.116667 |
1 |
| 6.183333 |
1 |
| 6.250000 |
2 |
| 6.283333 |
1 |
| 6.416667 |
1 |
| 6.433333 |
1 |
| 6.450000 |
1 |
| 6.483333 |
1 |
| 6.550000 |
1 |
| 7.000000 |
1 |
| NA |
10 |
qqqq <- ggplot(data = data, mapping = aes(x = hsc_T4, fill = factor(hsc_T4))) + geom_histogram(binwidth = 0.1)
ggplotly(qqqq)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T1
wb_T1_count <- dplyr::count(data, wb_T1)
knitr::kable(wb_T1_count)
| 0.6 |
1 |
| 0.8 |
1 |
| 1.2 |
1 |
| 1.4 |
5 |
| 1.6 |
5 |
| 1.8 |
6 |
| 2.0 |
7 |
| 2.2 |
11 |
| 2.4 |
5 |
| 2.6 |
11 |
| 2.8 |
11 |
| 3.0 |
14 |
| 3.2 |
7 |
| 3.4 |
7 |
| 3.6 |
7 |
| 3.8 |
5 |
| 4.0 |
3 |
| 4.2 |
3 |
| 4.4 |
1 |
| 4.6 |
1 |
| 5.0 |
1 |
| NA |
1 |
rrrr <- ggplot(data = data, mapping = aes(x = wb_T1, fill = factor(wb_T1))) + geom_histogram(binwidth = 0.5)
ggplotly(rrrr)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T2
wb_T2_count <- dplyr::count(data, wb_T2)
knitr::kable(wb_T2_count)
| 1.0 |
1 |
| 1.2 |
1 |
| 1.4 |
1 |
| 1.6 |
5 |
| 1.8 |
6 |
| 2.0 |
4 |
| 2.2 |
7 |
| 2.4 |
7 |
| 2.6 |
8 |
| 2.8 |
2 |
| 3.0 |
15 |
| 3.2 |
10 |
| 3.4 |
7 |
| 3.6 |
2 |
| 3.8 |
7 |
| 4.0 |
4 |
| 4.2 |
2 |
| 4.4 |
5 |
| 4.6 |
2 |
| 5.0 |
3 |
| NA |
15 |
ssss <- ggplot(data = data, mapping = aes(x = wb_T2, fill = factor(wb_T2))) + geom_histogram(binwidth = 0.5)
ggplotly(ssss)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T3
wb_T3_count <- dplyr::count(data, wb_T3)
knitr::kable(wb_T3_count)
| 0.0 |
1 |
| 0.8 |
1 |
| 1.0 |
2 |
| 1.4 |
3 |
| 1.6 |
1 |
| 1.8 |
5 |
| 2.0 |
5 |
| 2.2 |
8 |
| 2.4 |
10 |
| 2.6 |
7 |
| 2.8 |
10 |
| 3.0 |
12 |
| 3.2 |
8 |
| 3.4 |
5 |
| 3.6 |
4 |
| 3.8 |
10 |
| 4.0 |
5 |
| 4.4 |
1 |
| 4.6 |
3 |
| 4.8 |
1 |
| 5.0 |
3 |
| NA |
9 |
tttt <- ggplot(data = data, mapping = aes(x = wb_T3, fill = factor(wb_T3))) + geom_histogram(binwidth = 0.5)
ggplotly(tttt)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T4
wb_T4_count <- dplyr::count(data, wb_T4)
knitr::kable(wb_T4_count)
| 0.2 |
1 |
| 0.6 |
1 |
| 0.8 |
2 |
| 1.0 |
2 |
| 1.2 |
3 |
| 1.4 |
1 |
| 1.6 |
2 |
| 1.8 |
4 |
| 2.0 |
8 |
| 2.2 |
8 |
| 2.4 |
6 |
| 2.6 |
13 |
| 2.8 |
8 |
| 3.0 |
3 |
| 3.2 |
10 |
| 3.4 |
7 |
| 3.6 |
4 |
| 3.8 |
3 |
| 4.0 |
5 |
| 4.2 |
5 |
| 4.4 |
2 |
| 4.6 |
2 |
| 5.0 |
6 |
| NA |
8 |
uuuu <- ggplot(data = data, mapping = aes(x = wb_T4, fill = factor(wb_T4))) + geom_histogram(binwidth = 0.5)
ggplotly(uuuu)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T1
ev_T1_count <- dplyr::count(data, ev_T1)
knitr::kable(ev_T1_count)
| -3.0 |
3 |
| -2.5 |
1 |
| -2.0 |
1 |
| -1.5 |
7 |
| -1.0 |
4 |
| -0.5 |
9 |
| 0.0 |
21 |
| 0.5 |
18 |
| 1.0 |
11 |
| 1.5 |
1 |
| 2.0 |
3 |
| 2.5 |
15 |
| 3.0 |
19 |
| NA |
1 |
vvvv <- ggplot(data = data, mapping = aes(x = ev_T1, fill = factor(ev_T1))) + geom_histogram(binwidth = 0.5)
ggplotly(vvvv)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T2
ev_T2_count <- dplyr::count(data, ev_T2)
knitr::kable(ev_T2_count)
| -3.0 |
3 |
| -2.5 |
5 |
| -2.0 |
1 |
| -1.5 |
3 |
| -1.0 |
4 |
| -0.5 |
3 |
| 0.0 |
22 |
| 0.5 |
10 |
| 1.0 |
9 |
| 1.5 |
3 |
| 2.0 |
6 |
| 2.5 |
12 |
| 3.0 |
14 |
| NA |
19 |
wwww <- ggplot(data = data, mapping = aes(x = ev_T2, fill = factor(ev_T2))) + geom_histogram(binwidth = 0.5)
ggplotly(wwww)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T3
ev_T3_count <- dplyr::count(data, ev_T3)
knitr::kable(ev_T3_count)
| -3.0 |
7 |
| -2.0 |
3 |
| -1.5 |
1 |
| -1.0 |
3 |
| -0.5 |
8 |
| 0.0 |
20 |
| 0.5 |
17 |
| 1.0 |
8 |
| 1.5 |
6 |
| 2.0 |
10 |
| 2.5 |
5 |
| 3.0 |
15 |
| NA |
11 |
panda <- ggplot(data = data, mapping = aes(x = ev_T3, fill = factor(ev_T3))) + geom_histogram(binwidth = 0.5)
ggplotly(panda)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T4
ev_T4_count <- dplyr::count(data, ev_T4)
knitr::kable(ev_T4_count)
| -3.0 |
3 |
| -2.0 |
1 |
| -1.0 |
3 |
| -0.5 |
10 |
| 0.0 |
21 |
| 0.5 |
15 |
| 1.0 |
9 |
| 1.5 |
8 |
| 2.0 |
10 |
| 2.5 |
7 |
| 3.0 |
14 |
| NA |
13 |
yyyy <- ggplot(data = data, mapping = aes(x = ev_T4, fill = factor(ev_T4))) + geom_histogram(binwidth = 0.5)
ggplotly(yyyy)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_onemonth
hsc_onemonth_count <- dplyr::count(data, hsc_onemonth)
knitr::kable(hsc_onemonth_count)
| 3.170833 |
1 |
| 3.533333 |
1 |
| 3.750000 |
1 |
| 3.887500 |
1 |
| 4.033333 |
1 |
| 4.100000 |
1 |
| 4.145833 |
1 |
| 4.262500 |
1 |
| 4.270833 |
1 |
| 4.279167 |
1 |
| 4.437500 |
1 |
| 4.441667 |
1 |
| 4.475000 |
1 |
| 4.504167 |
1 |
| 4.575000 |
2 |
| 4.600000 |
1 |
| 4.604167 |
1 |
| 4.645833 |
1 |
| 4.679167 |
1 |
| 4.750000 |
1 |
| 4.754167 |
1 |
| 4.762500 |
1 |
| 4.775000 |
1 |
| 4.804167 |
1 |
| 4.837500 |
1 |
| 4.883333 |
1 |
| 4.904167 |
1 |
| 4.912500 |
1 |
| 4.962500 |
1 |
| 4.966667 |
1 |
| 4.975000 |
1 |
| 5.008333 |
1 |
| 5.016667 |
1 |
| 5.037500 |
1 |
| 5.041667 |
1 |
| 5.058333 |
1 |
| 5.066667 |
1 |
| 5.079167 |
1 |
| 5.079167 |
1 |
| 5.116667 |
1 |
| 5.175000 |
1 |
| 5.200000 |
1 |
| 5.241667 |
1 |
| 5.270833 |
1 |
| 5.275000 |
1 |
| 5.287500 |
1 |
| 5.304167 |
2 |
| 5.329167 |
1 |
| 5.362500 |
1 |
| 5.383333 |
1 |
| 5.391667 |
1 |
| 5.400000 |
1 |
| 5.404167 |
1 |
| 5.420833 |
1 |
| 5.425000 |
1 |
| 5.533333 |
1 |
| 5.537500 |
1 |
| 5.554167 |
1 |
| 5.591667 |
1 |
| 5.608333 |
1 |
| 5.625000 |
1 |
| 5.637500 |
2 |
| 5.641667 |
1 |
| 5.650000 |
1 |
| 5.729167 |
1 |
| 5.737500 |
1 |
| 5.783333 |
1 |
| 5.795833 |
1 |
| 5.812500 |
1 |
| 5.829167 |
1 |
| 5.875000 |
1 |
| 5.879167 |
1 |
| 5.900000 |
1 |
| 5.987500 |
1 |
| 6.012500 |
1 |
| 6.029167 |
1 |
| 6.054167 |
1 |
| 6.095833 |
1 |
| 6.158333 |
1 |
| 6.237500 |
1 |
| 6.258333 |
1 |
| 6.570833 |
1 |
| 6.687500 |
1 |
| NA |
28 |
zzzz <- ggplot(data = data, mapping = aes(x = hsc_onemonth, fill = factor(hsc_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none")
ggplotly(zzzz)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_onemonth
wb_onemonth_count <- dplyr::count(data, wb_onemonth)
knitr::kable(wb_onemonth_count)
| 1.15 |
1 |
| 1.25 |
1 |
| 1.30 |
1 |
| 1.40 |
1 |
| 1.65 |
1 |
| 1.75 |
1 |
| 1.80 |
1 |
| 1.85 |
1 |
| 1.95 |
1 |
| 2.00 |
1 |
| 2.00 |
1 |
| 2.10 |
2 |
| 2.15 |
1 |
| 2.20 |
1 |
| 2.25 |
2 |
| 2.30 |
1 |
| 2.30 |
1 |
| 2.35 |
1 |
| 2.40 |
3 |
| 2.45 |
1 |
| 2.45 |
2 |
| 2.50 |
3 |
| 2.55 |
1 |
| 2.60 |
1 |
| 2.70 |
1 |
| 2.75 |
1 |
| 2.75 |
1 |
| 2.80 |
4 |
| 2.80 |
1 |
| 2.85 |
4 |
| 2.85 |
2 |
| 2.85 |
2 |
| 2.90 |
1 |
| 2.90 |
1 |
| 2.95 |
2 |
| 2.95 |
3 |
| 3.05 |
4 |
| 3.05 |
1 |
| 3.15 |
1 |
| 3.20 |
1 |
| 3.30 |
1 |
| 3.35 |
2 |
| 3.40 |
1 |
| 3.45 |
1 |
| 3.45 |
1 |
| 3.50 |
1 |
| 3.55 |
1 |
| 3.60 |
2 |
| 3.60 |
1 |
| 3.65 |
1 |
| 3.75 |
1 |
| 3.80 |
1 |
| 3.80 |
1 |
| 3.85 |
1 |
| 4.05 |
1 |
| 4.10 |
1 |
| 4.20 |
2 |
| 4.25 |
2 |
| 4.40 |
1 |
| 4.45 |
2 |
| 4.55 |
1 |
| 4.85 |
1 |
| NA |
26 |
A <- ggplot(data = data, mapping = aes(x = wb_onemonth, fill = factor(wb_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none")
ggplotly(A)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_onemonth
ev_onemonth_count <- dplyr::count(data, ev_onemonth)
knitr::kable(ev_onemonth_count)
| -1.625 |
1 |
| -1.125 |
1 |
| -0.875 |
1 |
| -0.750 |
2 |
| -0.625 |
1 |
| -0.500 |
1 |
| -0.375 |
1 |
| -0.250 |
3 |
| -0.125 |
2 |
| 0.000 |
4 |
| 0.125 |
6 |
| 0.250 |
7 |
| 0.375 |
2 |
| 0.500 |
4 |
| 0.625 |
2 |
| 0.750 |
6 |
| 0.875 |
3 |
| 1.000 |
2 |
| 1.125 |
2 |
| 1.250 |
3 |
| 1.375 |
5 |
| 1.500 |
5 |
| 1.625 |
3 |
| 1.750 |
4 |
| 1.875 |
3 |
| 2.125 |
2 |
| 2.250 |
2 |
| 2.500 |
1 |
| 2.625 |
2 |
| 2.750 |
1 |
| 2.875 |
2 |
| NA |
30 |
B <- ggplot(data = data, mapping = aes(x = ev_onemonth, fill = factor(ev_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none") #視覚化
ggplotly(B)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`